FM Towns: Free Software Collection 7

home *** CD-ROM | disk | FTP | other *** search

/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / defgen / defgen06.bas < prev next >

Wrap

BASIC Source File | 1993-11-30 | 43KB | 1,119 lines

100 ' CATLOG.DEF GENERATOR 200 ' SAVE "DEFGEN06.BAS",A 300 ' Author -- Tomoya Andoh (ＪＩＮＸ)-- NIFTY-Serve ID PED00201 400 ' 500 ' Ver. 0-1 --- Date 17 Jan.1993 510 ' Ver. 0-2 --- Date 29 Jan.1993 520 ' Ver. 0-3 --- Date 1 Feb.1993 530 ' Ver. 0-4 --- Date 14 Feb.1993 540 ' Ver. 0-5 --- Date 19 Feb.1993 542 ' Ver. 0-5a --- Date 21 Feb.1993 544 ' Ver. 0-5b --- Date 24 Feb.1993 550 ' Ver. 0-6 --- Date 8 Mar.1993 552 ' Ver. 0-6a --- Date 10 Aug.1993 600 ' 700 ' 800 ' 1000 ON ERROR GOTO *エラーやで 1050 DEFINT A-Z 1100 DIM CMD$(100),MES$(100),DF$(100),MOT$(200),Y_N_FLAG(100),CMD_W$(100),JUN(100) 1150 VER$="v0.6a" 1200 SCREEN@ 2 1250 WIDTH 0,25 1300 WINDOW 1350 PALETTE 1400 CONSOLE 2,21,2 1450 GOSUB *パレット設定 1500 COLOR 7,%200,,0 1550 CLS 1600 GOSUB *開始画面設定 1650 GOSUB *パラメタリード 1700 GOSUB *コマンドリストREAD 1750 GOSUB *QUICK_SORT 1800 GOSUB *元DEFファイル読み込み 1850 GOSUB *強制サポートセット 1900 ' FOR I=0 TO 50:PRINT USING "###:@";I,DF$(I),:NEXT I:A$=INPUT$(1) 1950 ' 2000 '文字定数定義 2050 TB$=CHR$(&H09) 2100 'マウス設定_0 2150 MOUSE 0 2200 MOUSE 4,5*8-2,1*19,75*8+2,24*19 2250 ON MOUSE(2) GOSUB *左クリック_0 2300 MOUSE(2) ON 2350 *LOOP_0 2400 LOCATE 18,22 : PRINT "マウス左クリックで次にすすみます"; 2450 WAIT 36 2500 LOCATE 18,22 : PRINT " "; 2550 WAIT 12 2600 GOTO *LOOP_0 2650 *次頁 2700 'マウス設定_1 2750 ON MOUSE(2) GOSUB *左クリック 2800 ON MOUSE(4) GOSUB *右クリック 2850 MOUSE 1,10,10,1 2900 GOSUB *設定画面表示 2950 MOUSE(2) ON 3000 MOUSE(4) ON 3050 *LOOP : GOTO *LOOP 3100 *終了処理 3150 MOUSE 5 3200 IF R_CODE THEN 3250 GOSUB *更新処理 3300 ELSE 3350 GOSUB *中断処理 3400 ENDIF 3450 PALETTE 3500 PLAY OFF 3550 CONSOLE 0,25,0 3600 COLOR 7,0,7,0 3650 CLS 3700 END 3750 *左クリック 3800 MOUSE(2) OFF 3850 SX=MOUSE(0) : SY=MOUSE(1) 3900 WX=SX \ 8 : WY=SY \ 19 3950 PLAY "N"+STR$(WY+48) 4000 ' LOCATE 45,20 : PRINT USING "SX=#### SY=#### WX=#### WY=####";SX,SY,WX,WY 4050 IF PAGE>=101 THEN *左クリック_101 4100 'Y=1 終了処理 & HELP 4150 IF SY>=19 AND SY<=36 THEN 4200 IF SX>=502 AND SX<600 THEN R_CODE=-1 : RETURN *終了処理 4250 IF SX>=358 AND SX<=464 THEN R_CODE=0 : RETURN *終了処理 4300 IF SX>=38 AND SX<=112 THEN PAGE=101 : GOSUB *HELP0 4350 ENDIF 4400 IF PAGE=3 THEN *左クリック_2 4450 IF PAGE=101 THEN *左クリック_101 4500 'Y=3 入力 4550 IF SY>=57 AND SY<=74 THEN J=100 : GOSUB *キー入力 4600 'Y=4 出力 4650 IF SY>=76 AND SY<=93 THEN J=1 : GOSUB *キー入力 4700 'Y=5 TMP 4750 IF SY>=95 AND SY<=112 THEN 4800 J=3 4850 IF SX>=70 THEN GOSUB *キー入力 4900 IF SX<=64 THEN GOSUB *ON_OFF 4950 ENDIF 5000 'Y=7 検索 5050 IF SY>=133 AND SY<=150 THEN 5100 J=16 5150 IF SX>=70 THEN GOSUB *キー入力 5200 IF SX<=64 THEN GOSUB *ON_OFF 5250 ENDIF 5300 'Y=8 No検索 5350 IF SY>=152 AND SY<=169 THEN 5400 J=15 5450 IF SX>=70 THEN GOSUB *キー入力 5500 IF SX<=64 THEN GOSUB *ON_OFF 5550 ENDIF 5600 'Y=10 メッセージ出力 5650 IF SY>=190 AND SY<=207 THEN 5700 J=0 5750 IF SX>=70 THEN GOSUB *キー入力 5800 IF SX<=64 THEN GOSUB *ON_OFF 5850 ENDIF 5900 'Y=12 TMPO-SIZE 5950 IF SY>=228 AND SY<=245 THEN 6000 J=17 6050 IF SX>=70 THEN GOSUB *キー入力 6100 IF SX<=64 THEN GOSUB *ON_OFF 6150 ENDIF 6200 'Y=13 MOJI-SIZE 6250 IF SY>=247 AND SY<=264 THEN 6300 J=36 6350 IF SX>=70 THEN GOSUB *キー入力 6400 IF SX<=64 THEN GOSUB *ON_OFF 6450 ENDIF 6500 'Y=15 インデックスモード 6550 IF SY>=285 AND SY<=302 THEN 6600 J=2 6650 IF DF$(2)=":2" AND SX>=190 AND SX<=288 THEN 6700 DF$(2)=":1" : GOSUB *SW2 6750 ENDIF 6800 IF DF$(2)=":1" AND SX>=294 AND SX<=392 THEN 6850 DF$(2)=":2" : GOSUB *SW2 6900 ENDIF 6950 ENDIF 7000 'Y=16 メールの扱い 7050 IF SY>=304 AND SY<=321 THEN 7100 J=4 7150 IF Y_N_FLAG(J)=0 AND SX>=294 AND SX<=328 THEN GOSUB *オプション選択 7200 IF Y_N_FLAG(J)=1 AND SX>=334 AND SX<=384 THEN GOSUB *オプション選択 7250 ENDIF 7300 'Y=17 新ファイル作成条件 7350 IF SY>=327 AND SY<=340 THEN 7400 IF SX>=214 AND SX<=320 THEN J=37 : GOSUB *オプション選択 7450 IF SX>=334 AND SX<=480 THEN J=38 : GOSUB *オプション選択 7500 IF SX>=494 AND SX<=608 THEN J=50 : GOSUB *オプション選択 7550 ENDIF 7600 'Y=19 オプション 7650 IF SY>=361 AND SY<=378 THEN 7700 IF SX>=38 AND SX<=328 THEN J=32 : GOSUB *オプション選択 7750 ENDIF 7800 'Y=20 オプション 7850 IF SY>=380 AND SY<=397 THEN 7900 IF SX>=38 AND SX<=328 THEN J=39 : GOSUB *オプション選択 7950 IF SX>=358 AND SX<=552 THEN J=29 : GOSUB *オプション選択 8000 ENDIF 8050 'Y=21 オプション 8100 IF SY>=399 AND SY<=416 THEN 8150 IF SX>=38 AND SX<=200 THEN J=20 : GOSUB *オプション選択 8200 IF SX>=214 AND SX<=376 THEN J=22 : GOSUB *オプション選択 8250 IF SX>=390 AND SX<=552 THEN J=24 : GOSUB *オプション選択 8300 ENDIF 8350 'Y=22 オプション & 次頁 8400 IF SY>=418 AND SY<=435 THEN 8450 IF SX>=38 AND SX<=200 THEN J=21 : GOSUB *オプション選択 8500 IF SX>=214 AND SX<=376 THEN J=23 : GOSUB *オプション選択 8550 IF SX>=390 AND SX<=552 THEN J=25 : GOSUB *オプション選択 8600 IF SX>=566 THEN PAGE=3 : GOSUB *設定画面2 8650 ENDIF 8700 MOUSE(2) ON 8750 RETURN 8800 *左クリック_2 8850 'Y=3 中断 & 続行 8900 IF SY>=57 AND SY<=74 THEN 8950 IF SX>=38 AND SX<=312 THEN 9000 IF Y_N_FLAG(7)=0 AND Y_N_FLAG(8)=1 THEN 9050 J=8 : GOSUB *オプション選択 9100 ENDIF 9150 J=7 : GOSUB *オプション選択 9200 ENDIF 9250 IF SX>=326 AND SX<=600 THEN 9300 IF Y_N_FLAG(7)=1 AND Y_N_FLAG(8)=0 THEN 9350 J=7 : GOSUB *オプション選択 9400 ENDIF 9450 J=8 : GOSUB *オプション選択 9500 ENDIF 9550 ENDIF 9600 'Y=4 All_Yes,All_No & All引用 9650 IF SY>=76 AND SY<=93 THEN 9700 IF SX>=38 AND SX<=224 THEN 9750 IF Y_N_FLAG(9)=0 AND Y_N_FLAG(10)=1 THEN 9800 J=10 : GOSUB *オプション選択 9850 ENDIF 9900 J=9 : GOSUB *オプション選択 9950 ENDIF 10000 IF SX>=238 AND SX<=416 THEN 10050 IF Y_N_FLAG(9)=1 AND Y_N_FLAG(10)=0 THEN 10100 J=9 : GOSUB *オプション選択 10150 ENDIF 10200 J=10 : GOSUB *オプション選択 10250 ENDIF 10300 IF SX>=430 AND SX<=600 THEN J=26 : GOSUB *オプション選択 10350 ENDIF 10400 'Y=5 DON作らない,静かに,だまれ 10450 IF SY>=95 AND SY<=112 THEN 10500 IF SX>=38 AND SX<=216 THEN J=13 : GOSUB *オプション選択 10550 IF SX>=230 AND SX<=408 THEN J=5 : GOSUB *オプション選択 10600 IF SX>=422 AND SX<=600 THEN J=6 : GOSUB *オプション選択 10650 ENDIF 10700 'Y=7 全ファイル検索 10750 IF SY>=133 AND SY<=150 THEN J=14 : GOSUB *オプション選択 10800 'Y=8 サブディレクトリ内無視 10850 IF SY>=152 AND SY<=169 THEN J=30 : GOSUB *オプション選択 10900 'Y=10 yymmdd以降&以前収集 10950 IF SY>=190 AND SY<=207 THEN 11000 IF SX<=64 THEN J=18 : GOSUB *ON_OFF 11050 IF SX>=70 AND SX<=312 THEN J=18 : GOSUB *キー入力 11100 IF SX>=326 AND SX<=352 THEN J=19 : GOSUB *ON_OFF 11150 IF SX>=358 AND SX<=600 THEN J=19 : GOSUB *キー入力 11200 ENDIF 11250 'Y=11 ＩＤ収集 11300 IF SY>=209 AND SY<=226 THEN 11350 J=35 11400 IF SX<=64 THEN GOSUB *ON_OFF 11450 IF SX>=70 THEN GOSUB *キー入力 11500 ENDIF 11550 'Y=12 整理済ログからＩＤ収集 11600 IF SY>=228 AND SY<=245 THEN 11650 J=46 11700 IF SX<=64 THEN GOSUB *ON_OFF 11750 IF SX>=70 THEN GOSUB *キー入力 11800 ENDIF 11850 'Y=14 今日より古いﾌｧｲﾙの削除,ﾌｫｰﾗﾑﾄｯﾌﾟﾗｲﾝ削除 11900 IF SY>=266 AND SY<=283 THEN 11950 IF SX>=38 AND SX<=312 THEN J=27 : GOSUB *オプション選択 12000 IF SX>=326 AND SX<=600 THEN J=40 : GOSUB *オプション選択 12050 ENDIF 12100 'Y=15 削除した発言の表題を表示 12150 IF SY>=285 AND SY<=302 THEN 12200 IF SX>=38 AND SX<=312 THEN J=41 : GOSUB *オプション選択 12250 ENDIF 12300 'Y=16 削除から除くファイル名 12350 IF SY>=304 AND SY<=321 THEN 12400 J=28 12450 IF SX<=64 THEN GOSUB *ON_OFF 12500 IF SX>=70 THEN GOSUB *キー入力 12550 ENDIF 12600 'Y=18 凍結しながら実行,ﾛｸﾞ表示しながら実行 12650 IF SY>=342 AND SY<=359 THEN 12700 IF SX>=38 AND SX<=328 THEN J=33 : GOSUB *オプション選択 12750 IF SX>=342 AND SX<=600 THEN J=31 : GOSUB *オプション選択 12800 ENDIF 12850 'Y=19 CATLOG生成ﾌｧｲﾙからｲﾝﾃﾞｯｸｽ作成,ID/ﾊﾝﾄﾞﾙ対応ﾌｧｲﾙ作成 12900 IF SY>=361 AND SY<=378 THEN 12950 IF SX>=38 AND SX<=328 THEN J=44 : GOSUB *オプション選択 13000 IF SX>=342 AND SX<=600 THEN J=45 : GOSUB *オプション選択 13050 ENDIF 13100 'Y=20 ﾌｧｲﾙと会議室対応ﾌｧｲﾙ作成 13150 IF SY>=380 AND SY<=397 THEN 13200 J=43 13250 IF SX<=64 THEN GOSUB *ON_OFF 13300 IF SX>=70 THEN GOSUB *キー入力 13350 ENDIF 13400 'Y=21 DL出力ﾄﾞﾗｲﾌﾞ･ﾃﾞｨﾚｸﾄﾘ 13450 IF SY>=399 AND SY<=416 THEN 13500 J=42 13550 IF SX<=64 THEN GOSUB *ON_OFF 13600 IF SX>=70 THEN GOSUB *キー入力 13650 ENDIF 13700 'Y=22 Re-sort,前頁 13750 IF SY>=418 AND SY<=435 THEN 13800 J=47 13850 IF SX<=64 THEN GOSUB *ON_OFF 13900 IF SX>=38 AND SX<=312 THEN J=48 : GOSUB *オプション選択 13950 IF SX>=566 THEN 14000 PAGE=2 14050 GOSUB *設定画面1 14100 ENDIF 14150 ENDIF 14200 MOUSE(2) ON 14250 RETURN 14300 *左クリック_101 14350 ON MOUSE(4) GOSUB *次頁 14400 MOUSE(4) ON 14450 IF SY>=57 AND SY<=19*(3+((100-C_ST) \ 4))+17 THEN 14500 I=-1 14550 IF SX<=152 THEN I=0 14600 IF SX>=158 AND SX<=312 THEN I=1 14650 IF SX>=318 AND SX<=472 THEN I=2 14700 IF SX>=480 THEN I=3 14750 IF I<>-1 THEN 14800 HLP=4*((SY \ 19)-3)+I 14850 GOSUB *HELP1 14900 ENDIF 14950 ENDIF 15000 MOUSE(2) ON 15050 RETURN 15100 *右クリック 15150 R_CODE=0 15200 RETURN *終了処理 15250 *左クリック_0 15300 MOUSE(2) OFF 15350 PAGE=PAGE+1 15400 RETURN *次頁 15450 *オプション選択 15500 GOSUB *設定変更 15550 GOSUB *DISP_COM 15600 RETURN 15650 *ON_OFF 15700 IF Y_N_FLAG(J)=1 THEN Y_N_FLAG(J)=0 ELSE Y_N_FLAG(J)=1 15750 GOSUB *DISP_COM 15800 RETURN 15850 *設定変更 15900 IF DF$(J)="yes" THEN 15950 DF$(J)="no" 16000 Y_N_FLAG(J)=0 16050 ELSE 16100 DF$(J)="yes" 16150 Y_N_FLAG(J)=1 16200 ENDIF 16250 RETURN 16300 *DISP_COM 16350 IF J=100 THEN GOSUB *SW100 : RETURN 16400 IF J<=30 THEN 16450 ELSE 16550 16450 ON J+1 GOSUB *SW0,*SW1,*SW2,*SW3,*SW4,*SW5,*SW6,*SW7,*SW8,*SW9,*SW10,*SW11,*SW12,*SW13,*SW14,*SW15,*SW16,*SW17,*SW18,*SW19,*SW20,*SW21,*SW22,*SW23,*SW24,*SW25,*SW26,*SW27,*SW28,*SW29,*SW30 16500 RETURN 16550 ON J-30 GOSUB *SW31,*SW32,*SW33,*SW34,*SW35,*SW36,*SW37,*SW38,*SW39,*SW40,*SW41,*SW42,*SW43,*SW44,*SW45,*SW46,*SW47,*SW48,*SW49,*SW50,*SW51,*SW52,*SW53,*SW54,*SW55,*SW56,*SW57,*SW58,*SW59,*SW60 16600 RETURN 16650 *キー入力 16700 GOSUB *キー入力1 16750 GOSUB *DISP_COM 16800 RETURN 16850 *キー入力1 16900 LOCATE 0,23:PRINT KACNV$(RIGHT$(MES$(J),LEN(MES$(J))-2));" "; 16950 X=0:Y=23:M=79:C=205:GOSUB *ボックス 17000 LINE INPUT DUMMY$ 17050 IF DUMMY$<>"" THEN 17100 DF$(J)=":"+DUMMY$ 17150 ENDIF 17200 RETURN 17250 *設定画面表示 17300 CLS 1 : CLS 3 17350 LOCATE 0,1 : PRINT SPC(78); 17400 LOCATE 63, 1 : PRINT "更新して終了"; 17450 LOCATE 45, 1 : PRINT "更新せずに終了"; 17500 X=63:Y=1:M=12:C=203:GOSUB *ボックス 17550 X=45:Y=1:M=14:C=204:GOSUB *ボックス 17600 LOCATE 5, 1 : : PRINT "ＨＥＬＰ！"; 17650 X=5:Y=1:M=10:C=204:GOSUB *ボックス 17700 *設定画面1 17750 CLS 1 : PAGE=2 17800 COLOR 7,%200,,4 17850 LOCATE 2, 2 : PRINT "ドライブ，ディレクトリを指定してください。" 17900 WY=3 : GOSUB *SW100 17950 WY=4 : GOSUB *SW1 18000 WY=5 : GOSUB *SW3 18050 LOCATE 2, 6 : PRINT "ファイルを指定してください。(ﾜｲﾙﾄﾞｶｰﾄﾞ使用可)" 18100 WY=7 : GOSUB *SW16 18150 WY=8 : GOSUB *SW15 18200 LOCATE 2, 9 : PRINT "メッセージ出力先をフルパスで指定してください。" 18250 WY=10 : GOSUB *SW0 18300 LOCATE 2,11 : PRINT "ファイルサイズ指定オプション(1Kバイト単位で指定)" 18350 WY=12 : GOSUB *SW17 18400 WY=13 : GOSUB *SW36 18450 LOCATE 2,14 : PRINT "処理内容を選択してください。" 18500 WY=15 : GOSUB *SW2 18550 WY=16 : GOSUB *SW4 18600 WY=17 : GOSUB *SW37 : GOSUB *SW38 : GOSUB *SW50 18650 LOCATE 2,18 : PRINT "オプションを選択してください。" 18700 WY=19 : GOSUB *SW32 18750 WY=20 : GOSUB *SW39 : GOSUB *SW29 18800 WY=21 : GOSUB *SW20 : GOSUB *SW22 : GOSUB *SW24 18850 WY=22 : GOSUB *SW21 : GOSUB *SW23 : GOSUB *SW25 18900 LOCATE 71,22 : PRINT "次頁"; 18950 X=71:Y=22:M=4:C=204:GOSUB *ボックス 19000 COLOR 7,%200,,0 19050 RETURN 19100 *設定画面2 19150 CLS 1 : PAGE=3 19200 COLOR 3,%200,,4 19250 LOCATE 2, 2 : PRINT "この頁のｵﾌﾟｼｮﾝ設定はCATLOGのﾏﾆｭｱﾙをよく読んで理解した上でやってね。(^^)" 19300 COLOR 7,%200,,4 19350 WY=3 : GOSUB *SW7 : GOSUB *SW8 19400 WY=4 : GOSUB *SW9 : GOSUB *SW10 : GOSUB *SW26 19450 WY=5 : GOSUB *SW13 : GOSUB *SW5 : GOSUB *SW6 19500 LOCATE 2, 6 : PRINT "検索系オプション" 19550 WY=7 : GOSUB *SW14 19600 WY=8 : GOSUB *SW30 19650 LOCATE 2, 9 : PRINT "収集系オプション(日付入力はyy年mm月dd日をyymmddの形式で入力する)" 19700 WY=10 : GOSUB *SW18 : GOSUB *SW19 19750 WY=11 : GOSUB *SW35 19800 WY=12 : GOSUB *SW46 19850 LOCATE 2,13 : PRINT "削除系オプション＜★ＤＡＮＧＥＲ★＞" 19900 WY=14 : GOSUB *SW27 : GOSUB *SW40 19950 WY=15 : GOSUB *SW41 20000 WY=16 : GOSUB *SW28 20050 LOCATE 2,17 : PRINT "その他のオプション" 20100 WY=18 : GOSUB *SW33 : GOSUB *SW31 20150 WY=19 : GOSUB *SW44 : GOSUB *SW45 20200 WY=20 : GOSUB *SW43 20250 WY=21 : GOSUB *SW42 20300 WY=22 : GOSUB *SW48 20350 LOCATE 71,22 : PRINT "前頁"; 20400 X=71:Y=22:M=4:C=204:GOSUB *ボックス 20450 COLOR 7,%200,,0 20500 RETURN 20550 *HELP0 20600 ON MOUSE(4) GOSUB *次頁 20650 MOUSE(4) ON 20700 CLS 1 : PAGE=101 20750 LOCATE 0, 1 : PRINT " ＨＥＬＰ表示　OPTIONS.DOCを利用しています右クリックで設定画面に戻ります"; 20800 X=2:Y=1:M=75:C=203:GOSUB *ボックス 20850 LOCATE 5, 2 : PRINT "表示したいスイッチにマウスカーソルを合わせ左クリックしてください" 20900 IF CMD_W$(0)<>"" THEN 20950 C_ST=0 : FLAG=0 21000 ELSE 21050 FLAG=-1 21100 ENDIF 21150 FOR I=0 TO 100 21200 IF FLAG AND CMD_W$(I)<>"" THEN C_ST=I : FLAG=0 21250 IF CMD_W$(I)<>"" THEN 21300 X=20*((I-C_ST) MOD 4):Y=3+((I-C_ST) \ 4) 21350 LOCATE X,Y : PRINT USING "& &";CMD_W$(I); 21400 M=19:C=204:GOSUB *ボックス 21450 ENDIF 21500 NEXT I 21550 RETURN 21600 *HELP1 21650 ON MOUSE(4) GOSUB *HELP0 21700 MOUSE(4) ON 21750 CLS 1 : PAGE=102 21800 LOCATE 0, 1 : PRINT " ＨＥＬＰ表示　OPTIONS.DOCを利用しています右クリックで前画面に戻ります "; 21850 X=2:Y=1:M=75:C=203:GOSUB *ボックス 21900 OPEN ".\OPTIONSJ.DOC" FOR INPUT AS #1 21950 LINE INPUT #1,A$ 22000 LOCATE 1,4:PRINT CMD_W$(HLP+C_ST);MES$(JUN(HLP+C_ST)) 22050 IF LEFT$(A$,1)=";" THEN 22100 A$=RIGHT$(A$,LEN(A$)-1) : P0=INSTR(A$,":") : P1=INSTR(A$,";") 22150 IF P1<>0 AND P1<P0 THEN P0=0 22200 IF P0<>0 THEN 22250 IF LEFT$(A$,P0-1)=CMD_W$(HLP+C_ST) THEN 22800 22300 ELSE 22350 IF P1=0 THEN 22400 IF A$=CMD_W$(HLP+C_ST) THEN 22800 22450 ELSE 22500 IF LEFT$(A$,P1-1)=CMD_W$(HLP+C_ST) THEN 22800 22550 ENDIF 22600 ENDIF 22650 ENDIF 22700 LINE INPUT #1,A$ 22750 GOTO 22050 22800 LOCATE 1,4:PRINT CHR$(&H1B);"[0K";A$ 22850 LINE INPUT #1,A$ 22900 WHILE KLEFT$(A$,1)<>"☆" 22950 LINE INPUT #1,A$ 23000 WEND 23050 WHILE KLEFT$(A$,1)<>"★" 23100 LINE INPUT #1,A$ 23150 IF KLEFT$(A$,1)<>"★" THEN PRINT " ";A$ 23200 WEND 23250 CLOSE #1 23300 BEEP 23350 RETURN 23400 *SW100 23450 X=5:Y=WY:M=70: GOSUB *ボックス_P 23500 LOCATE 5,WY : PRINT "入力ﾄﾞﾗｲﾌﾞ:ﾃﾞｨﾚｸﾄﾘ";DF$(100) 23550 C=205:GOSUB *ボックス 23600 RETURN 23650 *SW1 23700 X=5:Y=WY:M=70: GOSUB *ボックス_P 23750 LOCATE 5,WY : PRINT "出力ﾄﾞﾗｲﾌﾞ:ﾃﾞｨﾚｸﾄﾘ";DF$(1) 23800 C=205:GOSUB *ボックス 23850 RETURN 23900 *SW3 23950 X=5:Y=WY:M=3: GOSUB *ボックス_P 24000 X=9: M=66: GOSUB *ボックス_P 24050 IF Y_N_FLAG(3)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 24100 LOCATE 5,WY : PRINT DUM$;" 作業ﾄﾞﾗｲﾌﾞ:ﾃﾞｨﾚｸﾄﾘ";DF$(3) 24150 X=5: M=3:C=CL: GOSUB *ボックス 24200 X=9: M=66:C=206:GOSUB *ボックス 24250 RETURN 24300 *SW16 24350 X=5:Y=WY:M=3: GOSUB *ボックス_P 24400 X=9: M=66: GOSUB *ボックス_P 24450 IF Y_N_FLAG(16)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 24500 LOCATE 5,WY : PRINT DUM$;" 検索するファイル";DF$(16) 24550 X=5: M=3:C=CL: GOSUB *ボックス 24600 X=9: M=66:C=206:GOSUB *ボックス 24650 RETURN 24700 *SW15 24750 X=5:Y=WY:M=3: GOSUB *ボックス_P 24800 X=9: M=66: GOSUB *ボックス_P 24850 IF Y_N_FLAG(15)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 24900 LOCATE 5,WY : PRINT DUM$;" 検索しないファイル";DF$(15) 24950 X=5: M=3:C=CL: GOSUB *ボックス 25000 X=9: M=66:C=CL: GOSUB *ボックス 25050 RETURN 25100 *SW0 25150 COLOR 6,%200,,4 25200 X=5:Y=WY:M=3: GOSUB *ボックス_P 25250 X=9: M=66: GOSUB *ボックス_P 25300 IF Y_N_FLAG(0)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 25350 LOCATE 5,WY : PRINT DUM$;" メッセージ出力ﾌｧｲﾙ名";DF$(0) 25400 X=5: M=3:C=CL: GOSUB *ボックス 25450 X=9: M=66:C=206:GOSUB *ボックス 25500 COLOR 7,%200,,4 25550 RETURN 25600 *SW2 25650 X=24:Y=WY:M=12: GOSUB *ボックス_P 25700 X=37: M=12: GOSUB *ボックス_P 25750 COLOR 6,%200,,4 25800 LOCATE 5,WY : PRINT "インデックスモード"; 25850 COLOR 7,%200,,4 25900 PRINT " 全体でひとつフォーラム毎" 25950 IF DF$(2)=":1" THEN CL=207:CE=202 ELSE CL=202:CE=207 26000 X=24: M=12:C=CL:GOSUB *ボックス 26050 X=37: M=12:C=CE:GOSUB *ボックス 26100 RETURN 26150 *SW4 26200 X=37:Y=WY:M=4: GOSUB *ボックス_P 26250 X=42: M=6: GOSUB *ボックス_P 26300 COLOR 6,%200,,4 26350 LOCATE 5,WY : PRINT "メールはひとつのファイルで処理"; 26400 COLOR 7,%200,,4 26450 PRINT " するしない" 26500 IF Y_N_FLAG(4)=1 THEN CL=207:CE=202 ELSE CL=202:CE=207 26550 X=37: M=4:C=CL: GOSUB *ボックス 26600 X=42: M=6:C=CE: GOSUB *ボックス 26650 RETURN 26700 *SW37 26750 COLOR 6,%200,,4 26800 LOCATE 5,WY : PRINT "新ファイルを作るのは"; 26850 COLOR 7,%200,,4 26900 X=27:Y=WY:M=13: GOSUB *ボックス_P 26950 LOCATE 28,WY : PRINT "発言番号001" 27000 IF Y_N_FLAG(37)=1 THEN CL=207 ELSE CL=202 27050 C=CL: GOSUB *ボックス 27100 RETURN 27150 *SW38 27200 X=42:Y=WY:M=18: GOSUB *ボックス_P 27250 LOCATE 42,WY : PRINT "より小さな発言番号" 27300 IF Y_N_FLAG(38)=1 THEN CE=207 ELSE CE=202 27350 C=CE: GOSUB *ボックス 27400 RETURN 27450 *SW50 27500 X=62:Y=WY:M=13: GOSUB *ボックス_P 27550 LOCATE 63,WY : PRINT "発言番号x01" 27600 IF Y_N_FLAG(50)=1 THEN CE=207 ELSE CE=202 27650 C=CE: GOSUB *ボックス 27700 RETURN 27750 *SW32 27800 X=5:Y=WY:M=36: GOSUB *ボックス_P 27850 LOCATE 5,WY : PRINT "ＬＨＡ圧縮ファイルを解凍しながら実行" 27900 IF Y_N_FLAG(32)=1 THEN CL=207 ELSE CL=202 27950 C=CL:GOSUB *ボックス 28000 RETURN 28050 *SW20 28100 X=5:Y=WY:M=20: GOSUB *ボックス_P 28150 LOCATE X,WY : PRINT "ＨＰは整理しない"; 28200 IF Y_N_FLAG(20)=1 THEN CL=207 ELSE CL=202 28250 C=CL:GOSUB *ボックス 28300 RETURN 28350 *SW21 28400 X=5:Y=WY:M=20: GOSUB *ボックス_P 28450 LOCATE X,WY : PRINT "PATIOは整理しない"; 28500 IF Y_N_FLAG(21)=1 THEN CL=207 ELSE CL=202 28550 C=CL:GOSUB *ボックス 28600 RETURN 28650 *SW22 28700 X=27:Y=WY:M=20: GOSUB *ボックス_P 28750 LOCATE X,WY : PRINT "会議室は整理しない"; 28800 IF Y_N_FLAG(22)=1 THEN CL=207 ELSE CL=202 28850 C=CL:GOSUB *ボックス 28900 RETURN 28950 *SW23 29000 X=27:Y=WY:M=20: GOSUB *ボックス_P 29050 LOCATE X,WY : PRINT "ＭＡＩＬは整理しない"; 29100 IF Y_N_FLAG(23)=1 THEN CL=207 ELSE CL=202 29150 C=CL:GOSUB *ボックス 29200 RETURN 29250 *SW24 29300 X=49:Y=WY:M=20: GOSUB *ボックス_P 29350 LOCATE X,WY : PRINT "ＬＩＢは整理しない"; 29400 IF Y_N_FLAG(24)=1 THEN CL=207 ELSE CL=202 29450 C=CL:GOSUB *ボックス 29500 RETURN 29550 *SW25 29600 X=49:Y=WY:M=20: GOSUB *ボックス_P 29650 LOCATE X,WY : PRINT "ＢＩＬＬは整理しない"; 29700 IF Y_N_FLAG(25)=1 THEN CL=207 ELSE CL=202 29750 C=CL:GOSUB *ボックス 29800 RETURN 29850 *SW39 29900 X=5:Y=WY:M=36: GOSUB *ボックス_P 29950 LOCATE 5,WY : PRINT "｢*****log整理｣を入れない"; 30000 IF Y_N_FLAG(39)=1 THEN CL=207 ELSE CL=202 30050 C=CL:GOSUB *ボックス 30100 RETURN 30150 *SW7 30200 X=5:Y=WY:M=34: GOSUB *ボックス_P 30250 IF Y_N_FLAG(7)=1 THEN CL=207 ELSE CL=202 30300 LOCATE 5,WY : PRINT "処理を第２段階で中断する" 30350 C=CL:GOSUB *ボックス 30400 RETURN 30450 *SW8 30500 X=41:Y=WY:M=34: GOSUB *ボックス_P 30550 IF Y_N_FLAG(8)=1 THEN CE=207 ELSE CE=202 30600 LOCATE 41,WY : PRINT "中断した処理を続行する" 30650 C=CE:GOSUB *ボックス 30700 RETURN 30750 *SW9 30800 X=5:Y=WY:M=23: GOSUB *ボックス_P 30850 IF Y_N_FLAG(9)=1 THEN CL=207 ELSE CL=202 30900 LOCATE 5,WY : PRINT "全ての質問にYESと答える" 30950 C=CL:GOSUB *ボックス 31000 RETURN 31050 *SW10 31100 X=30:Y=WY:M=22: GOSUB *ボックス_P 31150 IF Y_N_FLAG(10)=1 THEN CE=207 ELSE CE=202 31200 LOCATE 30,WY : PRINT "全ての質問にNOと答える" 31250 C=CE:GOSUB *ボックス 31300 RETURN 31350 *SW26 31400 X=54:Y=WY:M=21: GOSUB *ボックス_P 31450 IF Y_N_FLAG(26)=1 THEN CL=207 ELSE CL=202 31500 LOCATE 54,WY : PRINT "全部引用発言とする" 31550 C=CL:GOSUB *ボックス 31600 RETURN 31650 *SW13 31700 X=5:Y=WY:M=22: GOSUB *ボックス_P 31750 IF Y_N_FLAG(13)=1 THEN CL=207 ELSE CL=202 31800 LOCATE 5,WY : PRINT "CATLOG.DONを作らない" 31850 C=CL:GOSUB *ボックス 31900 RETURN 31950 *SW5 32000 X=29:Y=WY:M=22: GOSUB *ボックス_P 32050 IF Y_N_FLAG(5)=1 THEN CE=207 ELSE CE=202 32100 LOCATE 29,WY : PRINT "静かにモード" 32150 C=CE:GOSUB *ボックス 32200 RETURN 32250 *SW6 32300 X=53:Y=WY:M=22: GOSUB *ボックス_P 32350 IF Y_N_FLAG(6)=1 THEN CQ=207 ELSE CQ=202 32400 LOCATE 53,WY : PRINT "だまれモード" 32450 C=CQ:GOSUB *ボックス 32500 RETURN 32550 *SW14 32600 X=5:Y=WY:M=70: GOSUB *ボックス_P 32650 IF Y_N_FLAG(14)=1 THEN CL=207 ELSE CL=202 32700 LOCATE 5,WY : PRINT "全ファイルを検索対象とする(前頁のｵﾌﾟｼｮﾝより優先します)遅くなるよ(^^;)" 32750 C=CL:GOSUB *ボックス 32800 RETURN 32850 *SW30 32900 X=5:Y=WY:M=70: GOSUB *ボックス_P 32950 IF Y_N_FLAG(30)=1 THEN CL=207 ELSE CL=202 33000 LOCATE 5,WY : PRINT "サブ･ディレクトリの検索をおこなわない" 33050 C=CL:GOSUB *ボックス 33100 RETURN 33150 *SW18 33200 X=5:Y=WY:M=3 : GOSUB *ボックス_P 33250 X=9: M=30: GOSUB *ボックス_P 33300 IF Y_N_FLAG(18)=1 THEN DUM$="ON " : CL=207 ELSE DUM$="OFF" : CL=202 33350 LOCATE 5,WY : PRINT USING "& & &&年&&月&&日以降の発言収集";DUM$,MID$(DF$(18),2,2),MID$(DF$(18),4,2),MID$(DF$(18),6,2) 33400 X=5: M=3 :C=CL: GOSUB *ボックス 33450 X=9: M=30: GOSUB *ボックス 33500 RETURN 33550 *SW19 33600 X=41:Y=WY:M=3 : GOSUB *ボックス_P 33650 X=45: M=30: GOSUB *ボックス_P 33700 IF Y_N_FLAG(19)=1 THEN DUM$="ON " : CL=207 ELSE DUM$="OFF" : CL=202 33750 LOCATE 41,WY : PRINT USING "& & &&年&&月&&日以前の発言収集";DUM$,MID$(DF$(19),2,2),MID$(DF$(19),4,2),MID$(DF$(19),6,2) 33800 X=41: M=3 :C=CL:GOSUB *ボックス 33850 X=45: M=30: GOSUB *ボックス 33900 RETURN 33950 *SW35 34000 X=5:Y=WY:M=3 : GOSUB *ボックス_P 34050 X=9: M=66: GOSUB *ボックス_P 34100 IF Y_N_FLAG(35)=1 THEN DUM$="ON " : CL=207 ELSE DUM$="OFF" : CL=202 34150 LOCATE 5,WY : PRINT DUM$;" ＩＤの発言収集(複数指定可)";DF$(35) 34200 X=5: M=3 :C=CL: GOSUB *ボックス 34250 X=9: M=66: GOSUB *ボックス 34300 RETURN 34350 *SW46 34400 X=5:Y=WY:M=3 : GOSUB *ボックス_P 34450 X=9: M=66: GOSUB *ボックス_P 34500 IF Y_N_FLAG(46)=1 THEN DUM$="ON " : CL=207 ELSE DUM$="OFF" : CL=202 34550 LOCATE 5,WY : PRINT DUM$;" 整理済のﾌｧｲﾙからＩＤで発言収集";DF$(46) 34600 X=5: M=3 :C=CL: GOSUB *ボックス 34650 X=9: M=66: GOSUB *ボックス 34700 RETURN 34750 *SW17 34800 X=5:Y=WY:M=3: GOSUB *ボックス_P 34850 X=9: M=66: GOSUB *ボックス_P 34900 IF Y_N_FLAG(17)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 34950 LOCATE 5,WY : PRINT DUM$;" テンポラリﾌｧｲﾙｻｲｽﾞ(無指定で10240KB)";DF$(17) 35000 X=5: M=3 :C=CL: GOSUB *ボックス 35050 X=9: M=66: GOSUB *ボックス 35100 RETURN 35150 *SW36 35200 X=5:Y=WY:M=3: GOSUB *ボックス_P 35250 X=9: M=66: GOSUB *ボックス_P 35300 IF Y_N_FLAG(36)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 35350 LOCATE 5,WY : PRINT DUM$;" ひとつのﾌｧｲﾙｻｲｽﾞ(無指定で800KB)";DF$(36) 35400 X=5: M=3 :C=CL: GOSUB *ボックス 35450 X=9: M=66: GOSUB *ボックス 35500 RETURN 35550 *SW27 35600 X=5:Y=WY:M=34: GOSUB *ボックス_P 35650 IF Y_N_FLAG(27)=1 THEN CL=207 ELSE CL=202 35700 LOCATE 5,WY : PRINT "今日より古いﾌｧｲﾙを削除／危険(~~)" 35750 C=CL:GOSUB *ボックス 35800 RETURN 35850 *SW40 35900 X=41:Y=WY:M=34: GOSUB *ボックス_P 35950 IF Y_N_FLAG(40)=1 THEN CL=207 ELSE CL=202 36000 LOCATE 41,WY : PRINT "- FFMHOB MES( )の行を削除" 36050 C=CL:GOSUB *ボックス 36100 RETURN 36150 *SW41 36200 X=5:Y=WY:M=34: GOSUB *ボックス_P 36250 IF Y_N_FLAG(41)=1 THEN CL=207 ELSE CL=202 36300 LOCATE 5,WY : PRINT "削除した発言の表題を表示する" 36350 C=CL:GOSUB *ボックス 36400 RETURN 36450 *SW28 36500 X=5:Y=WY:M=3: GOSUB *ボックス_P 36550 X=9: M=66: GOSUB *ボックス_P 36600 IF Y_N_FLAG(28)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 36650 LOCATE 5,WY : PRINT DUM$;" 削除から除くファイル名(複数指定可)";DF$(28); 36700 X=5: M=3 :C=CL: GOSUB *ボックス 36750 X=9: M=66: GOSUB *ボックス 36800 RETURN 36850 *SW33 36900 X=5:Y=WY:M=36: GOSUB *ボックス_P 36950 IF Y_N_FLAG(33)=1 THEN CL=207 ELSE CL=202 37000 LOCATE 5,WY : PRINT "ﾛｸﾞを入力ﾃﾞｨﾚｸﾄﾘ毎に凍結しながら実行"; 37050 C=CL:GOSUB *ボックス 37100 RETURN 37150 *SW43 37200 X=5:Y=WY:M=3: GOSUB *ボックス_P 37250 X=9:Y=WY:M=66: GOSUB *ボックス_P 37300 IF Y_N_FLAG(43)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 37350 LOCATE 5,WY : PRINT DUM$;" ﾌｧｲﾙと会議室の対応ﾌｧｲﾙ(ﾌﾙﾊﾟｽのﾌｧｲﾙ名)";DF$(43) 37400 X=5: M=3 :C=CL: GOSUB *ボックス 37450 X=9: M=66: GOSUB *ボックス 37500 RETURN 37550 *SW42 37600 X=5:Y=WY:M=3: GOSUB *ボックス_P 37650 X=9: M=66: GOSUB *ボックス_P 37700 IF Y_N_FLAG(42)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 37750 LOCATE 5,WY : PRINT DUM$;" ﾃﾞｰﾀﾗｲﾌﾞﾗﾘを別に整理:出力ﾄﾞﾗｲﾌﾞ:ﾃﾞｨﾚｸﾄﾘ";DF$(42); 37800 X=5: M=3 :C=CL: GOSUB *ボックス 37850 X=9: M=66: GOSUB *ボックス 37900 RETURN 37950 *SW44 38000 X=5:Y=WY:M=36: GOSUB *ボックス_P 38050 IF Y_N_FLAG(44)=1 THEN CL=207 ELSE CL=202 38100 LOCATE 5,WY : PRINT "CATLOG整理ﾌｧｲﾙからｲﾝﾃﾞｯｸｽを作る"; 38150 C=CL:GOSUB *ボックス 38200 RETURN 38250 *SW45 38300 X=43:Y=WY:M=32: GOSUB *ボックス_P 38350 IF Y_N_FLAG(45)=1 THEN CL=207 ELSE CL=202 38400 LOCATE 43,WY : PRINT "ID/ﾊﾝﾄﾞﾙ対応ファイルを作る"; 38450 C=CL:GOSUB *ボックス 38500 RETURN 38550 *SW31 38600 X=43:Y=WY:M=32: GOSUB *ボックス_P 38650 IF Y_N_FLAG(31)=1 THEN CL=207 ELSE CL=202 38700 LOCATE 43,WY : PRINT "ﾛｸﾞ表示しながら実行する"; 38750 C=CL:GOSUB *ボックス 38800 RETURN 38850 *SW47 38900 IF DF$(47)=":1" THEN CE=207 : CQ=202 ELSE CE=202 : CQ=207 38950 X=5:Y=WY:M=3: GOSUB *ボックス_P 39000 X=34: M=8 : GOSUB *ボックス_P 39050 X=44: M=8 : GOSUB *ボックス_P 39100 IF Y_N_FLAG(47)=1 THEN DUM$="ON ":CL=207 ELSE DUM$="OFF":CL=202 39150 LOCATE 5,WY : PRINT DUM$; 39200 COLOR 6 : PRINT " ＦＡＰＸのログ保存モード"; 39250 COLOR 7 : PRINT " 圧縮なし圧縮あり"; 39300 X=5: M=3 :C=CL: GOSUB *ボックス 39350 X=34: M=8 :C=CE:GOSUB *ボックス 39400 X=44: M=8 :C=CQ:GOSUB *ボックス 39450 RETURN 39500 *SW48 39550 X=5:Y=WY:M=34: GOSUB *ボックス_P 39600 IF Y_N_FLAG(48)=1 THEN CL=207 ELSE CL=202 39650 LOCATE 5,WY : PRINT " CATLOG整理ﾌｧｲﾙを再度ソートし直す"; 39700 C=CL: GOSUB *ボックス 39750 RETURN 39800 *SW29 39850 X=45:Y=WY:M=24: GOSUB *ボックス_P 39900 IF Y_N_FLAG(29)=1 THEN CL=207 ELSE CL=202 39950 LOCATE 45,WY : PRINT "削除発言は整理に含めない"; 40000 C=CL:GOSUB *ボックス 40050 RETURN 40100 '未サポート 40150 *SW11 40200 *SW12 40250 *SW34 40300 *SW49 40350 *SW51 40400 *SW52 40450 *SW53 40500 *SW54 40550 *SW55 40600 *SW56 40650 *SW57 40700 *SW58 40750 *SW59 40800 *SW60 40850 RETURN 40900 *ボックス:LINE (8*X-2,19*Y)-(8*X+8*M,19*Y+17),OR,%C,BF : RETURN 40950 *ボックス_P:LINE (8*X-2,19*Y)-(8*X+8*M,19*Y+17),PSET,%200,BF : RETURN 41000 STOP 41050 *更新処理 41100 KILL DF_FILE$ 41150 OPEN DF_FILE$ FOR OUTPUT AS #1 41200 PRINT #1,";DEFGEN生成ファイル" 41250 IF DF_FILE$<>"..\CATLOG.DEF" THEN 41300 Y_N_FLAG(55)=0 : DF$(55)=":"+DF_FILE$ 41350 ELSE 41400 Y_N_FLAG(55)=0 41450 ENDIF 41500 FOR I=0 TO 100 41550 IF Y_N_FLAG(I)<>-1 THEN 41600 IF Y_N_FLAG(I)>0 THEN 41650 IF LEFT$(DF$(I),1)=":" THEN 41700 DUMMY$=TB$+CMD$(I)+DF$(I)+TB$+MES$(I) 41750 ELSE 41800 DUMMY$=TB$+CMD$(I)+TB$+MES$(I) 41850 ENDIF 41900 ELSE 41950 IF LEFT$(DF$(I),1)=":" THEN 42000 DUMMY$=";"+TB$+CMD$(I)+DF$(I)+TB$+MES$(I) 42050 ELSE 42100 DUMMY$=";"+TB$+CMD$(I)+TB$+MES$(I) 42150 ENDIF 42200 ENDIF 42250 PRINT #1,DUMMY$ 42300 ENDIF 42350 NEXT I 42400 CLOSE #1 42450 RETURN 42500 *中断処理 42550 IF DG_FLAG=0 THEN 42600 NAME DF_FILE0$ AS DF_FILE$ 42650 ENDIF 42700 RETURN 42750 *元DEFチェック 42800 FOR I=0 TO DF_MAX 42850 IF LEFT$(MOT$(I),1)="-" THEN 42900 YES_NO_FLAG=1 42950 P0=INSTR(MOT$(I),":") 43000 P1=INSTR(MOT$(I),";") 43050 IF P1<>0 AND P1<P0 THEN P0=0 43100 IF P0<>0 THEN 43150 C0$=LEFT$(MOT$(I),P0-1) 43200 IF P1=0 THEN 43250 C1$=RIGHT$(MOT$(I),LEN(MOT$(I))-P0+1) 43300 C2$="" 43350 ELSE 43400 C1$=MID$(MOT$(I),P0,P1-P0) 43450 C2$=RIGHT$(MOT$(I),LEN(MOT$(I))-P1+1) 43500 ENDIF 43550 ELSE 43600 C1$="yes" 43650 IF P1=0 THEN 43700 C0$=MOT$(I) 43750 C2$="" 43800 ELSE 43850 C0$=LEFT$(MOT$(I),P1-1) 43900 C2$=RIGHT$(MOT$(I),LEN(MOT$(I))-P1+1) 43950 ENDIF 44000 ENDIF 44050 ELSE 44100 IF LEFT$(MOT$(I),1)=";" AND MID$(MOT$(I),2,1)="-" THEN 44150 YES_NO_FLAG=0 44200 MOT$(I)=RIGHT$(MOT$(I),LEN(MOT$(I))-1) 44250 P0=INSTR(MOT$(I),":") 44300 P1=INSTR(MOT$(I),";") 44350 IF P1<>0 AND P1<P0 THEN P0=0 44400 IF P0<>0 THEN 44450 C0$=LEFT$(MOT$(I),P0-1) 44500 IF P1=0 THEN 44550 C1$=RIGHT$(MOT$(I),LEN(MOT$(I))-P0+1) 44600 C2$="" 44650 ELSE 44700 C1$=MID$(MOT$(I),P0,P1-P0) 44750 C2$=RIGHT$(MOT$(I),LEN(MOT$(I))-P1+1) 44800 ENDIF 44850 ELSE 44900 C1$="no" 44950 IF P1=0 THEN 45000 C0$=RIGHT$(MOT$(I),LEN(MOT$(I))-1) 45050 C2$="" 45100 ELSE 45150 C0$=LEFT$(MOT$(I),P1-1) 45200 C2$=RIGHT$(MOT$(I),LEN(MOT$(I))-P1+1) 45250 ENDIF 45300 ENDIF 45350 ENDIF 45400 ENDIF 45450 GOSUB *コマンド照合 45500 ' PRINT C0$,C1$,P0,P1 : PRINT CMD$(J),DF$(J),MES$(J):A$=INPUT$(1) 45550 NEXT I 45600 RETURN 45650 *コマンド照合 45700 J=0 45750 WHILE CMD$(J)<>C0$ 45800 J=J+1 45850 WEND 45900 ' IF NOT(YES_NO_FLAG=0 AND Y_N_FLAG(J)=1) THEN 45950 DF$(J)=C1$ 46000 Y_N_FLAG(J)=YES_NO_FLAG 46050 ' ENDIF 46100 RETURN 46150 *スイッチ拡張対策 46200 J=0 46250 WHILE Y_N_FLAG(J)<>-1 46300 J=J+1 46350 WEND 46400 LOCATE 18,23 : PRINT 46450 LOCATE 18,23 : PRINT USING "###番目に@を追加します";J,C0$; 46500 CMD$(J)=C0$ : DF$(J)=C1$ : MES$(J)=C2$ : Y_N_FLAG(J)=0 46550 LOCATE 5,18: PRINT "???番目に-Xxxx-Xxxxxを追加しますと下に表示された時には、DEFGENの" 46600 LOCATE 5,19: PRINT "ｻﾎﾟｰﾄｽｲｯﾁ以外のｽｲｯﾁが元DEFにあった場合です。この場合でも元DEFに" 46650 LOCATE 5,20: PRINT "あったｽｲｯﾁを新DEFにCOPYしますので、ｻﾎﾟｰﾄするまではｴﾃﾞｨﾀで修正して" 46700 LOCATE 5,21: PRINT "という限定付きですが使用可能です。" 46750 RETURN 46800 *コマンドリストREAD 46850 I=0 46900 OPEN "DEFGEN_D.DAT" FOR INPUT AS #1 46950 WHILE NOT(EOF(1)) 47000 INPUT #1,DUMMY$ 47050 Y_N_FLAG(I)=VAL(DUMMY$) 47100 INPUT #1,CMD$(I),DF$(I),MES$(I) 47150 IF CMD$(I)="-I" THEN 47200 SWAP Y_N_FLAG(I),Y_N_FLAG(100):SWAP CMD$(I),CMD$(100) 47250 SWAP DF$(I),DF$(100) :SWAP MES$(I),MES$(100) 47300 ELSE 47350 I=I+1 47400 ENDIF 47450 WEND 47500 CML_MAX=I-1 47550 CLOSE #1 47600 RETURN 47650 *元DEFファイル読み込み 47700 LOCATE 18,22 : PRINT "元DEFファイルを読み込んでいます"; 47750 DG_FLAG=0 47800 OPEN DF_FILE$ FOR INPUT AS #1 47850 LINE INPUT #1,DUMMY$ 47900 IF DUMMY$=";DEFGEN生成ファイル" THEN 47950 DG_FLAG=-1 : I=0 48000 ELSE 48050 IF LEFT$(DUMMY$,1)="-" THEN 48100 MOT$(0)=DUMMY$ : I=1 48150 ELSE 48200 IF LEFT$(MOT$(I),1)=";" AND MID$(MOT$(I),2,1)="-" THEN 48250 MOT$(0)=DUMMY$ : I=1 48300 ENDIF 48350 I=0 48400 ENDIF 48450 ENDIF 48500 WHILE NOT(EOF(1)) 48550 LINE INPUT #1,DUMMY$ 48600 IF LEFT$(DUMMY$,1)="-" OR (LEFT$(DUMMY$,1)=";" AND MID$(DUMMY$,2,1)="-") THEN 48650 A=INSTR(DUMMY$,"-") 48700 IF MID$(DUMMY$,A+1,1)>="A" AND MID$(DUMMY$,A+1,1)<="Z" THEN 48750 MOT$(I)=DUMMY$ : I=I+1 48800 ' PRINT DUMMY$ : A$=INPUT$(1) 48850 ENDIF 48900 ENDIF 48950 WEND 49000 DF_MAX=I-1 49050 CLOSE #1 49100 IF DG_FLAG=0 THEN 49150 NAME DF_FILE$ AS DF_FILE0$+"DF0" 49200 ' NAME DF_FILE0$ AS df_file$ 49250 ENDIF 49300 GOSUB *元DEFチェック 49350 RETURN 49400 *元DEFなし 49450 RETURN 49500 *強制サポートセット 49550 Y_N_FLAG(1)=1 49600 Y_N_FLAG(2)=1 49650 Y_N_FLAG(100)=1 49700 Y_N_FLAG(47)=0 49750 RETURN 49800 *開始画面設定 49850 CLS 49900 PLAY ON 49950 PLAY "@51T180C8DE2DC8.R16C8DEDC8D2" 50000 PLAY "@15" 50050 PAGE=1 50100 LOCATE 0,0 50150 PRINT " ＣＡＴＬＯＧ小判鮫ソフト(^^;) ＤＥＦＧＥＮＥＲＡＴＯＲ";VER$;" PED00201 ＪＩＮＸ" 50200 LINE (0,0)-(639,19),OR,%201,BF 50250 LOCATE 0,2 50300 PRINT "このソフトはCATLOG.DEFをとりあえず使える状態にセットアップするものです。" 50350 PRINT "山先さんから本家DEF設定プログラムが発表されるまでのつなぎですので、エディタを" 50400 PRINT "自由に使えるスキルの持ち主には無用の物です。" 50450 PRINT "選択肢の用意されている項目は、マウスで希望の側を左クリックしてください。" 50500 PRINT "ファイル名を指定する必要のある項目では入力域にマウスを移動し左クリック後、" 50550 PRINT "キーボードからドライブ名：ディレクトリ名を入力してください。" 50600 COLOR 5,,,4 50650 LOCATE 3,9 : PRINT "☆★設定画面のルール(^^)/~" 50700 COLOR 7,,,0 50750 LOCATE 5,10: PRINT "必須設定項目を示します。この設定抜きにはCATLOGは動きません。" 50800 X=5:Y=10:M=70:C=205:GOSUB *ボックス 50850 LOCATE 5,11: PRINT "設定した方が望ましい項目を示します。" 50900 X=5:Y=11:M=70:C=206:GOSUB *ボックス 50950 LOCATE 7,12: PRINT "OFFにした場合にはCATLOGの初期値(ｶﾚﾝﾄﾃﾞｨﾚｸﾄﾘ等)になります" 51000 X=7:Y=12:M=56:C=206:GOSUB *ボックス 51050 LOCATE 5,13: PRINT "選択した時にこの色になります。" 51100 X=5:Y=13:M=70:C=207:GOSUB *ボックス 51150 LOCATE 5,14: PRINT "選択されてない場合の表示色です。" 51200 X=5:Y=14:M=70:C=202:GOSUB *ボックス 51250 LOCATE 5,15: PRINT "更新して終了更新せずに終了のいずれかを左ｸﾘｯｸで終了します。" 51300 X=5:Y=15:M=12:C=203:GOSUB *ボックス 51350 X=18:Y=15:M=14:C=204:GOSUB *ボックス 51400 LOCATE 5,16: PRINT "また右ｸﾘｯｸは更新せずに終了を左ｸﾘｯｸと同じ動きとなります。" 51450 X=18:Y=16:M=14:C=204:GOSUB *ボックス 51500 FOR I=0 TO 100 : Y_N_FLAG(I)=-1 : NEXT I 51550 RETURN 51600 *パレット設定 51650 OPEN "DEFGENPT.DAT" FOR INPUT AS #1 51700 I=200 51750 WHILE NOT(EOF(1)) 51800 LINE INPUT #1,DUMMY$ 51850 IF LEFT$(DUMMY$,1)<>";" THEN 51900 POI1=INSTR(DUMMY$,","):POI2=INSTR(POI1+1,DUMMY$,","):POI3=INSTR(POI2+1,DUMMY$,",") 51950 GREEN=VAL(LEFT$(DUMMY$,POI1-1)) 52000 RED=VAL(MID$(DUMMY$,POI1+1,POI2-POI1-1)) 52050 BLUE=VAL(MID$(DUMMY$,POI2+1,POI3-POI2-1)) 52100 PALETTE I,[GREEN,RED,BLUE] 52150 I=I+1 52200 ENDIF 52250 WEND 52300 CLOSE #1 52350 RETURN 52400 *QUICK_SORT 52450 FOR I=0 TO 100 52500 JUN(I)=I : CMD_W$(I)=CMD$(I) 52550 NEXT I 52600 N=100 52650 M=12 52700 DIM SL(M),SR(M) 52750 S=1 : SL(1)=0 : SR(1)=N 52800 L=SL(S) : R=SR(S) : S=S-1 52850 I=L : J=R : X$=CMD_W$(INT((L+R)/2)) 52900 IF CMD_W$(I)<X$ THEN I=I+1 : GOTO 52900 52950 IF X$<CMD_W$(J) THEN J=J-1 : GOTO 52950 53000 IF I<=J THEN SWAP CMD_W$(I),CMD_W$(J) : SWAP JUN(I),JUN(J) : I=I+1 : J=J-1 53050 IF I<=J THEN 52900 53100 IF I<R THEN S=S+1 : SL(S)=I : SR(S)=R 53150 R=J 53200 IF L<R THEN 52850 53250 IF S<>0 THEN 52800 53300 ERASE SL,SR 53350 ' FOR I=0 TO 100:PRINT CMD_W$(I):A$=INPUT$(1):NEXT I 53400 RETURN 53450 *設定不良 53500 COLOR 7,0,7,0 : CLS 53550 PRINT "DEFGENのプログラムのあるディレクトリに正しく設定してから再起動してください" 53600 PRINT : PRINT "プログラムは中断しました＜何かキーを押して下さい＞" 53650 A$=INPUT$(1) 53700 STOP 53750 *パラメタリード 53800 DEF FNARGC& = PEEK(PEEK(VARPTR(SYSTEM,6) - 8,4),4) 53850 DEF FNARGV& = PEEK(PEEK(VARPTR(SYSTEM,6) - 8,4) - 4,4) 53900 DIM ARGVS$(10) '読み出すパラメータの文字列 53950 ARGC& = FNARGC& 54000 IF ARGC& < 1 THEN PRINT "noting":END 54050 ARGV& = FNARGV& 54100 I=ARGC&-1 54150 ARGVX& = PEEK((ARGV&+I*4),4) 54200 ARGVS$(I) = "" 54250 M& = 1 54300 WHILE (M& <> 0) 54350 M& = PEEK((ARGVX&),1) 54400 ARGVS$(I) = ARGVS$(I)+CHR$(M&):ARGVX&=ARGVX&+1 54450 WEND 54500 IF LEFT$(ARGVS$(I),3)="-f:" THEN 54550 DF_FILE$=RIGHT$(ARGVS$(I),LEN(ARGVS$(I))-3) 54600 DF_FILE$=LEFT$(DF_FILE$,LEN(DF_FILE$)-1) 54650 A=INSTR(DF_FILE$,".") 54700 DF_FILE0$=LEFT$(DF_FILE$,A)+"DF0" 54750 ELSE 54800 DF_FILE$="..\CATLOG.DEF" 54850 DF_FILE0$="..\CATLOG.DF0" 54900 ENDIF 54950 COLOR 6 55000 LOCATE 7,17: PRINT USING "※現在の編集対象は@です。";DF_FILE$; 55050 COLOR 7 55100 RETURN 55150 *エラーやで 55200 IF ERR=63 AND ERL=47800 THEN RESUME *元DEFなし 55250 IF ERR=63 AND ERL=41100 THEN RESUME NEXT 55300 IF ERR=63 AND ERL=42600 THEN RESUME NEXT 55350 IF ERR=9 AND ERL=45750 THEN RESUME *スイッチ拡張対策 55400 IF ERR=9 AND ERL=45850 THEN RESUME *スイッチ拡張対策 55450 IF ERR=54 AND ERL=22700 THEN RESUME 23250 55500 IF ERR=63 AND ERL=46900 THEN 55550 BEEP : CLS 55600 PRINT "DEFGEN_D.DAT(スイッチデータファイル)がありません｡" 55650 RESUME *設定不良 55700 ENDIF 55750 IF ERR=63 AND ERL=51650 THEN 55800 BEEP : CLS 55850 PRINT "DEFGENPT.DAT(パレット設定ファイル)がありません｡" 55900 RESUME *設定不良 55950 ENDIF 56000 PRINT USING "ERR=####### ERL=########";ERR,ERL 56050 STOP